#!/usr/bin/perl -w

open FH, '<', "QuranEnglish.txt" or die $!;
my $surah_id = 1;
my $last_surah_id = 1;

while (<FH>) {
	$_ =~ m/(\d+)\|\d+\|(.*)/;
	open(FW, '>>', "quran_part$1.txt") or die $!;
	print FW "$2\n";
	close FW;
	
	
	
}

close FH;

